home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1995 #5 & #6 / Amiga Plus CD - 1995 - No. 5 and 6.iso / pd / serien / purity / nr.20 / druckertest / druckertest.p < prev    next >
Text File  |  1995-04-22  |  597b  |  34 lines
  1. PROGRAM test;
  2.  
  3. FROM Rogertools USES druckertest;
  4.  
  5. BEGIN
  6.  If FromWB Then
  7.  BEGIN
  8.   Reset(input,"CON:0/0/500/100/Druckertest V0.03 Coded on 14.10.93 for PURITY");
  9.   output:=input;
  10.   Writeln;
  11.  END
  12.  ELSE writeln(""\e"32mDruckertest V0.03 Coded on 14.10.93 for PURITY"\e"31m");
  13.  writeln;
  14.  
  15.  IF druckbereit THEN writeln('Drucker war online')        {* Der eigent- *}
  16.                 ELSE writeln('Drucker nicht bereit !!!');  {* liche Test  *}
  17.  
  18.  writeln;
  19.  writeln(' Thanks To PackMan !');
  20.  IF FROMWB THEN
  21.   BEGIN
  22.    writeln;
  23.    Write("Press return to exit");
  24.    readln;
  25.    Close(input);
  26.   END;
  27. END.
  28.  
  29.  
  30.  
  31.  
  32.  
  33.  
  34.